The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/mac/prime_CD/pb/PROFILE.DIR/00175_Script_Media Wrapper Script

Text File | 1997-07-29 | 13KB | 310 lines

-- Media Wrapper Handlers by kevin fraser ⌐1995 Gerri Sinclair & SFU ExCITE Centre
-- v.02
-- each can be any sprite, but requires list of 8 wrapper sprites to be ordered like this:
-- [1:tlc, 2:ts, 3:trc, 4:rs, 5:brc, 6:bs, 7:blc, 8:ls, 9:]
-- sprites ordered this way are processed in this order: [2,6,1,3,5,7,8,4]


on more_pop md_sp, direction, wrapperSpritesList
  set old_rect = the rect of sprite md_sp


  set sp_s1 = getat(wrapperSpritesList,1)  -- side 1 right
  set sp_c1 = getat(wrapperSpritesList,2) -- corner 1 right
  set sp_md = getat(wrapperSpritesList,3)  -- main delta side
  set sp_c2 = getat(wrapperSpritesList,4) -- corner 2 left
  set sp_s2 = getat(wrapperSpritesList,5)  -- side 2 left
  set sh_txt = getat(wrapperSpritesList,6) -- text cast
  set sh_pan = getat(wrapperSpritesList,7) -- panel bottom
  set sh_cp = getat(wrapperSpritesList,8) -- copy button
  set sh_pr = getat(wrapperSpritesList,9) -- print button
  set sh_arc = getat(wrapperSpritesList,10) -- archive button

  if direction = "down" then
    set delta = 120 -- fudge a resize


    place_box_contents("in",md_sp,sh_txt,sh_pan,sh_cp,sh_pr,sh_arc,sp_md,sp_s2,sp_s1,delta)
    do_vertical(delta,sp_s1,sp_c1,sp_md,sp_c2,sp_s2)
    see_sprite([38,39,40,41,42],true)
  end if

  if direction = "up" then
    set delta = -120
    do_vertical(delta,sp_s1,sp_c1,sp_md,sp_c2,sp_s2)
    --    place_box_contents("out",md_sp,sh_txt,sh_pan,sh_cp,sh_pr,sh_arc,sp_md,sp_s2,sp_s1,delta)
    see_sprite([38,39,40,41,42],false)
  end if


end

on box_sprites_on sh_txt,sh_pan,sh_cp,sh_pr
  puppetsprite sh_txt,true
  puppetsprite sh_pan,true
  puppetsprite sh_cp,true
  puppetsprite sh_pr,true
  --  puppetsprite sh_arc,true

end

on box_sprites_off sh_txt,sh_pan,sh_cp,sh_pr
  puppetsprite sh_txt,false
  puppetsprite sh_pan,false
  puppetsprite sh_cp,false
  puppetsprite sh_pr,false
  --  puppetsprite sh_arc,false

end

on place_box_contents state, md_sp, sh_txt, sh_pan, sh_cp, sh_pr, sh_arc, sp_md, sp_s2, sp_s1, delta
  if state = "in" then

    box_sprites_on(sh_txt,sh_pan,sh_cp,sh_pr)
    set the_top = the bottom of the rect of sprite sp_md - the height of sprite sp_md
    set the_left = the left of the rect of sprite sp_s2 + the width of sprite sp_s2
    set the_right = the right of the rect of sprite sp_s1 - the width of sprite sp_s1
    set the_bottom = the_top + delta

    set the locv of sprite sh_txt = the_top
    set the loch of sprite sh_txt = the_left

    spritebox sh_pan, the_left, the_bottom - 24, the_right, the_bottom
    set the_center = the left of the rect of sprite sp_md + the width of sprite md_sp / 2

    --    put the rect of sprite md_sp && the_center
    spritebox sh_cp, the_center - 25, the_bottom - 3, the_center - 25 + the width of sprite sh_cp, the_bottom - 3 - the height of sprite sh_cp
    spritebox sh_pr, the_center + 5, the_bottom - 3, the_center + 5 + the width of sprite sh_pr, the_bottom - 3 - the height of sprite sh_pr

    --    spritebox sh_arc, the_left + 70, the_bottom - 3, the_left + 70 + the width of sprite sh_arc, the_bottom - 3 - the height of sprite sh_arc

  else
    box_sprites_off(sh_txt,sh_pan,sh_cp,sh_pr)
  end if

end

on do_vertical delta, sp_rs, sp_brc, sp_bs, sp_blc, sp_ls

  set the locv of sprite sp_bs = the locv of sprite sp_bs + delta
  set the locv of sprite sp_brc = the locv of sprite sp_brc + delta
  set the locv of sprite sp_blc = the locv of sprite sp_blc + delta

  spriteBox sp_rs, the left of the rect of sprite sp_rs, the top of the rect of  sprite sp_rs,the right of the rect of  sprite sp_rs, the bottom of the rect of sprite sp_rs + delta
  spriteBox sp_ls, the left of the rect of sprite sp_ls, the top of the rect of sprite sp_ls,the right of the rect of  sprite sp_ls, the bottom of the rect of sprite sp_ls + delta




end


on wrapMedia castNameOfMedia, mediaSprite, wrapperSpritesList, bit_rect

  --  repeat with qq = 1 to 2
  cursor 4  -- waiting
  --  set winPartsList = [#tlc: "topLeftCorner",#ts: "panelTop", #trc: "topRightCorner", #rs: "rightSide", #brc: "bottomRightCorner", #bs: "panelBottom", #blc: 17, #ls: 18, #topPanelText: 19, #topPanelMask: 20, #closeButton: "closeNormal", #media: 22]
  --[#tlc: "topLeftCorner",#ts: "topSide", #trc: "topRightCorner", #rs: "rightSide", #brc: "bottomRightCorner", #bs: "bottomSide", #blc: 17, #ls: 18, #topPanelText: 19, #topPanelMask: 20, #closeButton: "closeNormal", #media: "??"]

  set author = "[e-mail]"
  set copyrightHolder = "⌐1995 Gerri Sinclair & SFU ExCITE Centre"


  -- Initialize

  set mediaSpriteOriginH =  the left of sprite mediaSprite
  set mediaSpriteOriginV =  the top of sprite mediaSprite
  set mediaCastType = the casttype of the member of sprite mediaSprite


  set mediaLside = the left of bit_rect
  set mediaTside = the top of bit_rect
  set mediaRside = the right of bit_rect
  set mediaBside = the bottom of bit_rect

  set theMediaSpriteHeight = mediaBside - mediaTside

  set theCloseButtonHeight = the height of cast "over close up"
  set theCloseButtonWidth = the width of cast "over close up"

  -- =-=-=-= 1st: Sprite 2: Top

  if #digitalVideo = mediaCastType then
    set currentSpriteNumber = getAt(wrapperSpritesList,2)
    set pauseButtonSpriteNum = getAt(wrapperSpritesList,9)
    set moreButtonSpriteNum = getAt(wrapperSpritesList,10)
  end if

  if #bitmap = mediaCastType then
    set currentSpriteNumber = getAt(wrapperSpritesList,2)
    set pauseButtonSpriteNum = getAt(wrapperSpritesList,9)
    set moreButtonSpriteNum = getAt(wrapperSpritesList,10)
  end if


  set closeButtonSpriteNumber = getAt(wrapperSpritesList,11)


  set textVoffset = 0 -- down from top of close button
  -- height of top panel - height of close button / 2
  set textHoffset = 2 -- in from side of close button

  -- height of top panel - textVoffset
  set castNameOfSpriteToMove = the name of the member of sprite currentSpriteNumber

  set currentCastHeight = the height of cast castNameOfSpriteToMove

  -- POSITION: top side sprite
  spriteBox currentSpriteNumber, mediaLside, mediaTside-currentCastHeight, mediaRside, mediaTside

  -- POSITION: mask sprite
  --    spriteBox maskSpriteNumber, mediaLside, mediaTside-currentCastHeight, mediaRside, mediaTside

  -- POSITION: more button sprite
  set moreHoffset = 2
  set moreVoffset = 2
  set morebwidth = the width of sprite moreButtonSpriteNum
  set morebheight = the height of sprite moreButtonSpriteNum
  spriteBox moreButtonSpriteNum, mediaRside-moreHoffset-morebwidth, mediaBside-moreVoffset-morebheight, mediaRside-moreHoffset, mediaBside-moreVoffset


  updatestage

  -- POSITION: rewind button sprite
  set rewButtonSpriteNum = 43
  set pauseHoffset = 2
  set pauseVoffset = -38
  set pausebwidth = the width of sprite rewButtonSpriteNum
  set pausebheight = the height of sprite rewButtonSpriteNum
  spriteBox rewButtonSpriteNum mediaLside+pauseHoffset,mediaBside + pauseVoffset, mediaLside+pauseHoffset+pausebwidth,mediaBside+pauseVoffset+pausebheight

  --POSITION: pause button
  set pauseHoffset = 18
  set pauseVoffset = -38
  set pausebwidth = the width of sprite pauseButtonSpriteNum
  set pausebheight = the height of sprite pauseButtonSpriteNum
  spriteBox pauseButtonSpriteNum mediaLside+pauseHoffset,mediaBside + pauseVoffset, mediaLside+pauseHoffset+pausebwidth,mediaBside+pauseVoffset+pausebheight


  -- POSITION: close button sprite
  set closeBtnVoffset = -15 -- down from top of close button
  -- height of top panel - height of close button / 2
  set closeBtnHoffset = 0 -- in from side of close button
  spriteBox closeButtonSpriteNumber, mediaLside + closeBtnHoffset, mediaTside - theCloseButtonHeight-closeBtnVoffset, mediaLside + theCloseButtonWidth + closeBtnHoffset, mediaTside - closeBtnVoffset

  updatestage
  set topPanelHeight = currentCastHeight

  set totalHeight = theMediaSpriteHeight + currentCastHeight

  -- =-=-=-= 2nd: Sprite 6: Bottom Panel
  set currentSpriteNumber = getAt(wrapperSpritesList,6)
  set castNameOfSpriteToMove = the name of cast the castnum of sprite currentSpriteNumber
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  spriteBox currentSpriteNumber, mediaLside, mediaBside, mediaRside, mediaBside + the height of cast castNameOfSpriteToMove

  set totalHeight = totalHeight + currentCastHeight
  set bottomPanelHeight = currentCastHeight

  -- =-=-=-= 3rd: Sprite 1: Top Left Corner
  set currentSpriteNumber = getAt(wrapperSpritesList,1)
  set castNameOfSpriteToMove = the name of cast the castnum of sprite currentSpriteNumber
  set currentCastWidth = the width of cast castNameOfSpriteToMove
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  set tLcHeight = currentCastHeight
  set tLcWidth = currentCastWidth
  spriteBox currentSpriteNumber, mediaLside-currentCastWidth, mediaTside-topPanelHeight, mediaLside, mediaTside - topPanelHeight + currentCastHeight


  updatestage

  -- =-=-=-= 4th: Sprite 3: Top Right Corner
  set currentSpriteNumber = getAt(wrapperSpritesList,3)
  set castNameOfSpriteToMove = the name of cast the castnum of sprite currentSpriteNumber
  set currentCastWidth = the width of cast castNameOfSpriteToMove
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  set tRcHeight = currentCastHeight
  set tRcWidth = currentCastWidth
  spriteBox currentSpriteNumber, mediaRside, mediaTside - topPanelHeight, mediaRside+currentCastWidth, mediaTside-topPanelHeight + currentCastHeight


  -- lapTime("Top Right Corner")  -- DEBUG

  -- =-=-=-= 5th: Sprite 5: Bottom Right Corner
  set currentSpriteNumber = getAt(wrapperSpritesList,5)
  set castNameOfSpriteToMove = the name of cast the castnum of sprite getAt(wrapperSpritesList,5)
  set currentCastWidth = the width of cast castNameOfSpriteToMove
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  set bRcHeight = currentCastHeight
  set bRcWidth = currentCastWidth
  spriteBox currentSpriteNumber, mediaRside, mediaBside + bottomPanelHeight - currentCastHeight, mediaRside+currentCastWidth, mediaBside+bottomPanelHeight


  -- lapTime("Bottom Right Corner")  -- DEBUG

  -- =-=-=-= 6th: Sprite 7: Bottom Left Corner
  set currentSpriteNumber = getAt(wrapperSpritesList,7)
  set castNameOfSpriteToMove = the name of cast the castnum of sprite getAt(wrapperSpritesList,5)
  set currentCastWidth = the width of cast castNameOfSpriteToMove
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  set bLcHeight = currentCastHeight
  set bLcWidth = currentCastWidth
  spriteBox currentSpriteNumber, mediaLside - currentCastWidth, mediaBside + bottomPanelHeight - currentCastHeight, mediaLside, mediaBside + bottomPanelHeight

  -- here now
  updatestage

  -- lapTime("Bottom Left Corner")  -- DEBUG

  -- =-=-=-= 7th: Sprite 8: Left Side
  set currentSpriteNumber = getAt(wrapperSpritesList,8)
  set castNameOfSpriteToMove = the name of cast the castnum of sprite getAt(wrapperSpritesList,5)
  set currentCastWidth = the width of cast castNameOfSpriteToMove
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  spriteBox currentSpriteNumber, mediaLside - currentCastWidth, mediaTside - topPanelHeight + tLcHeight, mediaLside, mediaBside + bottomPanelHeight - bLcHeight


  -- lapTime("Left Side")  -- DEBUG

  -- =-=-=-= 8th: Sprite 4: Right Side
  set currentSpriteNumber = getAt(wrapperSpritesList,4)
  set castNameOfSpriteToMove = the name of cast the castnum of sprite getAt(wrapperSpritesList,5)
  set currentCastWidth = the width of cast castNameOfSpriteToMove
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  spriteBox currentSpriteNumber, mediaRside, mediaTside - topPanelHeight + tRcHeight, mediaRside + currentCastWidth, mediaBside + bottomPanelHeight - bRcHeight


  cursor -1 -- normal cursor

  updatestage -- debug something wierd about this updatestage


end

on incrementSpriteList listToProcess
  set castNameOfSpriteToMove = the name of cast the castnum of sprite getAt(listToProcess,1)
  set currentCastHeight = the height of cast castNameOfSpriteToMove
  deleteAt listToProcess, 1 -- another one bites the dust
  return [listToProcess,castNameOfSpriteToMove,currentCastHeight]
end

on lapTime label
  global startTime, timeSummary
  if voidP(startTime) then
    put the ticks into startTime
  else
    put the ticks - 1 - startTime && label & return after timeSummary
    put the ticks - 1 into startTime
  end if
  --return ""
end

on timeSummary
  global timeSummary
  put empty into timeSummary
  put 0 into totalTicks
  repeat with x = 1 to the number of lines in timeSummary
    set totalTicks = totalTicks + value(word 1 of line x of timeSummary)
  end repeat
  return timeSummary&return & totalTicks&&"total"
end